This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
I m facing to the following problem doing Unzip function of VSZIPZUP.DLL in a Lotus script agent :
- I have VCZIPSUP.DLL installed under c:\WINDOWS and C:\WINDOWS\system32. This was downloaded from : http://www.vcode.no/vcode.nsf/downloads/VCZIPSUP
- Running this code on Notes v8.5.1:
Declare Function Unzip Lib "VCZIPSUP.DLL" (_
ByVal pstrInputZipFilename As String, _
ByVal pstrOutputDirectory As String, _
ByVal pstrOptions As String) As Long
Declare Function GetZIPSUPMajorVersion Lib "VCZIPSUP.DLL" () As Integer
Declare Function GetZIPSUPMinorVersion Lib "VCZIPSUP.DLL" () As Integer
Declare Function GetZIPSUPBuildNumber Lib "VCZIPSUP.DLL" () As Integer
Sub Initialize
Dim lRc As Long
Dim MajorVersion As String
Dim MinorVersion As String
Dim BuildNumber As String
MajorVersion = GetZIPSUPMajorVersion()
MinorVersion = GetZIPSUPMinorVersion()
BuildNumber = GetZIPSUPBuildNumber()
lRc = Unzip("C:/xxxx.tar","C:"," ")
End Sub
I get lRc = 999 ( and no files unzipped....)
- for information :
MajorVersion = 1
MinorVersion = 2
BuilNumber = 0
Any idea to fix this problem?
Thanks
Feedback number WEBB8EFCNR created by ~Rex Elkromannivu on 02/26/2011